www.gusucode.com > 茶都拼客网全功能版 8 > 茶都拼客网全功能版 8.8源码程序/teasdxmccom/茶都拼客网V8.8（全功能，无限制，完全开源）/Gu_PTshangjia.asp

    <!--#include file="ku_top.asp"-->
<% id=request.querystring("guxing")%>
<%
function title()
title="普通商家"
end function
%>
<div align="center">
<table cellpadding="0" cellspacing="0" width="100">
	<tr>
		<td height="5"></td>
	</tr>
</table>
</div>
<div align="center">
	<table border="0" width="980" height="454" cellpadding="0" cellspacing="0">
		<tr>
			<td height="454" width="740" valign="top">

			<div align="center">
			<table cellpadding="0" cellspacing="0" width="740" height="452">
				<tr>
					<td height="36" background="Ku_img/News/news_001.JPG">
			<table cellpadding="0" cellspacing="0" width="740">
				<tr>
<td height="20" width="440" valign="top"><div id="dazi">
<p align="left"><b><font color="#0066FF">&nbsp;&nbsp;&nbsp;全部普通商家</font></b></div>
</td>
<td height="20" width="100" valign="top">
<img border="0" src="pkxx-img/sj03.gif"><a href="Gu_VIPshangjia.asp" title="全部VIP商家">VIP商家</a>
</td>
<td height="20" width="100" valign="top">
<img border="0" src="pkxx-img/sj02.gif"><a href="Gu_LMshangjia.asp" title="全部联盟商家">联盟商家</a>
</td>
<td height="20" width="100" valign="top">
<img border="0" src="pkxx-img/shang.gif"><a href="Gu_shangjia.asp" title="所有商家">所有商家</a>
</td>
				</tr>
			</table>
					</td>
				</tr>
				<tr>
					<td height="396" background="Ku_img/News/news_002.JPG" valign="top">
<div align=center>

<table width="730" border="0" align="center" cellpadding="0" cellspacing="0">

<tr>
<td colspan="2">
<table width="730" border="0" align="center" cellpadding="3" cellspacing="1" >
<tr>

<%
sid=request.querystring("guxing")
if sid="" then

	set rs=server.createobject("adodb.recordset")
	sql="select * from shangjia where shenhe=1 and xinyu=0"
else
	set rs=server.createobject("adodb.recordset")
	sql="select * from shangjia where shenhe=1 and xinyu=0 and class="&sid&""
	end if

	
	sql=sql&" order by addtime desc"

	rs.open sql,conn,1,1
	
	dim a
	Set a=New PageList
	listLimit=10
	'模拟分页一页显示分页数
	pageLists=5
	'设置分页参数

If rs.BOF or rs.EOF Then 
%>
</tr>
<tr bgcolor="#C6E3F4">
  <td height="24"  align="center" bgcolor="#FFFFFF">此类暂时没有商家！</td>
  </tr>
<%
else
dim x
x=1
'分页循环开始
totalList=rs.recordcount
a.InitPara=array(totalList,listLimit,pageLists)
a.PageList()
rs.pagesize=listLimit
page = request("page")
If page="" Then
	page=1
End If
rs.absolutepage = page

%>
<tr>
<%for i=1 to rs.pagesize%>
<td height="90" width="120" style="border: 1px solid #CECFCE">
<p align="center">
<a href="My_shop.asp?guxing=<%=rs("id")%>" target="_blank">
<img border="0" src="<%if rs("logo")<>"" then%><%=rs("logo")%><%else%>ku_Img/nopic120-90.gif<%end if%>" width="120" height="90"></a>
</p>
</td>

<td width="564">
<div align="left">
	<table border="0" width="218" height="90" cellpadding="0" cellspacing="0">
		<tr>
			<td height="20" width="60"><b>商家名</b>：</td>
<td height="20" width="150"><a href="My_shop.asp?guxing=<%=rs("id")%>" target="_blank"> <%=Trim(rs("name"))%></a>
<!--商家等级 开始-->
<% if rs("xinyu")=0 then%>
<img border="0" src="pkxx-img/sj01.gif" title="普通商家（本站会员享受9.5折）">
<% end if%>
<% if rs("xinyu")=1 then%>
<img border="0" src="pkxx-img/sj02.gif" title="联盟商家（本站会员享受9折）">
<% end if%>
<% if rs("xinyu")=2 then%>
<img border="0" src="pkxx-img/sj03.gif" title="VIP商家（本站会员享受8.5折以下，详见商家公告！）">
<% end if%> 
<!--商家等级 结束-->
                        </td>
		</tr>

		<tr>
			<td height="20" width="60"><b>联系人</b>：</td>
			<td height="20" width="150"><%=Trim(rs("username"))%></td>
		</tr>
		<tr>
			<td height="20" width="60"><b>电话</b>：</td>
			<td height="20" width="150"><%=rs("tel")%></td>
		</tr>
		<tr>
			<td height="20" width="60"><b>地址</b>：</td>
			<td height="20" width="150"><%=rs("address")%></td>
		</tr>
	</table>
</div>
</td>


<% if x mod 2 =0 then%> 

</tr>
	<tr>
		<td height="5" width="640" colspan="2"></td>
	</tr>
<tr align="center" width="320">

<%
end if
x=x+1
rs.movenext
if rs.eof then exit for
next

end if
%>
</tr>
</table></td>
  </tr>

 </form>
</table>
</div>
<%
rs.close
set rs=nohing
%>					
					</td>
				</tr>
								<tr>
									<td height="16" background="Ku_img/News/news_002.JPG" align=center>  &nbsp;<%=a.PageInfo%></td>
								</tr>				
				<tr>
					<td height="4">
					<img border="0" src="Ku_img/News/news_003.JPG" width="740" height="4"></td>
				</tr>
<!--【拼客商家】列表页面-列表信息-下方广告位-->
	<tr>
		<td height="8"></td>
	</tr>
		<tr>
			<td><% Call Ku_AD(26) %></td>
		</tr>
<!--【拼客商家】列表页面-列表信息-下方广告位-->
			</table>
			</div>

			</td>
			<td height="454" width="8">　</td>
			<td height="454" width="232" valign="top">
			<!--#include file="Ku_type/Index_login.asp"-->
			<!--#include file="Ku_type/sj_kind.asp"-->

			</td>
		</tr>
	</table>
</div>
<!--#include file="Ku_foot.asp"-->